#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use utf8;

sub max {
    my ($m, $n) = @_;
    if($m > $n) {$m} else {$n};
}

my $max = &max(34,4);
print $max;
